home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Extras
/
opus55it
/
Installa
next >
Wrap
Text File
|
1997-02-21
|
3KB
|
88 lines
; $VER: Install Opus5 Italian (01.09.95)
; Script to install the Italian catalog translation for Opus 5.5.
; Adapted Dr Greg Perry's Norsk version
; by Francesco Dipietromaria
(set #install-msg
(cat "\n\nScript per l'installazione della\n"
"localizzazione italiana di Directory Opus 5.5\n\n"
"DOpus 5.5 è ©1996 Jonathan Potter & GP Software\n"
"Traduzione a cura di Francesco Dipietromaria\n\n"
"Per qualsiasi suggerimento o correzione sulla traduzione\n"
"potete mandare una e-mail al seguente indirizzo:\n"
"dpm@sinet.it"
))
(message #install-msg)
;=============================================================================
; check if Directory Opus 5 is already installed
(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
(abort "Dovete prima installare Directory Opus 5.5")
)
(set @default-dest "")
;=============================================================================
; install catalogs
(copyfiles
(source "Catalogs")
(dest "DOpus5:Catalogs")
(pattern "#?")
)
;=============================================================================
; install Italian version of buttons banks
(copyfiles
(source "Buttons")
(dest "DOpus5:Buttons")
(pattern "#?")
)
;=============================================================================
; make Italian lister menu the default
(if
(askbool
(prompt "La versione italiana del menu lister pop-up "
"è disponibile.\n\n"
"Volete installarla e rinominare quella vecchia come\n"
"'lister menu_old'?"
)
(help "Installa la versione italiana del lister pop-up standard ")
)
(
(rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
(copyfiles
(source "DOpus5:Buttons/lister menu_IT")
(dest "DOpus5:Buttons")
(newname "lister menu")
)
)
)
;=============================================================================
; make Italian user menu the default
(if
(askbool
(prompt "La versione italiana dell'user menu è disponibile.\n\n"
"Volete installarla e rinominare quella vecchia come\n"
"'user menu_old'."
)
(help "Installa la versione italiana dello user menu standard ")
)
(
(rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
(copyfiles
(source "DOpus5:Buttons/user menu_IT")
(dest "DOpus5:Buttons")
(newname "user menu")
)
)
)
(exit)